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The following exercises are carefully graded to mesh with the sec- 

A. 

tions in Chapter I, "The LISP Language," in the LISP 1.5 Programmers 
Manual, Each exercise should be worked immediately after reading^ the 
manual section indicated. 

Instructions to "Read Section 1.1" refer to this manual. The exer- 
cises are more finely sub-divided than the manual sections. If you don't 
understand an entire manual section try the exercises--they may teach 
you enough to allow you to proceed on through the manual section* 

A. S-expressions . Read Section 1.1. 

Which of the following are s-expressions? 

1. (X . Y) 

2. «Z) 

3. CHI 

( 

4. (BOSTON . NEW . YORK) < 

5. ((SPINACH . BUTTER) . STEAK) 

B. Elementary Functions . Read Section 1.2. 

Write the s-expression which is the value of each of the following 
expressions. (Some of them are undefined'.) 
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6. car [(A . B)] 

7. cdr((A . B)] 

8. car[((FOO . CROCK) . GLITCH)] 

9. cdr[((FOO . CROCK) . GLITCH)) 

10. car[X] 

11. cons[POOT;TOOP] 

12. cons [X; (Y . Z)] 

13. eq[X;X] 

14. eq[Y;Z] 

15. eq[(Q . R) ; (Q . R)] 

16. atom[X] 

17. atom [(TOOT . TOOT)] 

18. atom[ISTHISATRIVIALEXERCISE] 



C. Function Composition 

The notation of function composition is extremely useful: 
car[cdr[(A . (B . C))]] means that s-expression which is the car part of 
the cdr part of (A . (B . C)), namely B. The general rule for evaluat- 
ing composed functions is to evaluate the innermost ones first, then the 
next outer layer and so on until the entire expression has been evaluated. 



I 



£ 



le 



coks[cdr[((A . B) . C)];car[«A . B) . 
Evaluate the following: 

19. car [cons [A; B]] 

20. cons[car[(A . B)];cdr[(A . B)]] 

21. carfedr[(A . (B . C))]] 

22. eq{car[(A . B));cdr[(C . B)]] 



C)]] - cons[C;(A . B)] - (C . (A . B)) 
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23. eq[cdr[(A . B)];cdr[(C . B)]] 

24. eq[A;car[cons[car[(A . B)];C]]] 
25 • atom [cons [A; B] ] 

26. atom[cdr[car[((A . C) . B)]]] 

27. car[cdr[car[((A . (B . C)) . D)]]] 

D. Variables. 

The notion of a variable is very important: a small letter appear- 
ing in an expression in places where we expect to find an s-expression 
is to stand for the same (unspecified) s-expression in every place where 
it occurs in that s-expression. Using this notation we can give the 
following definitions: 

car[(x . y)] ■ x 

cdr[(x . y )] « y 

cons[x;y] ■ (x . y) 
(Notice that these definitions don't allow us to find an s-expression 
equivalent to car [ATOM]; this is why we say that such an expression is 
undefined.) 

Which of the following identities are always true? 

28. car [cons [x;y]] « x 

29. cons [car [cons [x;y]];y] ■ (x . y) 

30. atom[cons[u;v]] « T 

31. cons[A;cons[x;Y]] « (A . (x . Y)) 

32. car[car[cdr[(A . ((B . C) . D))]J1 - C 
33'. atom[cdr[cons[x;Y]]] - T 

34. eq[X;car[cons[X;cons[u;v]]]] » T 
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, if 

i E«' List Notation . Read Section 1.3. 

I 

We will use the list notation almost exclusively from now on, so 
do not try to avoid learning it. The second set of examples on manual 
page 4 are key prototypes for remembering what the basic functions do 
to s-expressions in list notation: 
car gets the first element of a list. 
cdr eliminates the first element of a list by moving the leading left 

paren past the initial s-expression. 
cons inserts its first argument at the head of the list which is its 
second argument • 
cdr of a list with only one element is the atomic symbol NIL. 

Which one of the following s-expressions cannot be expressed JLn 
list notation? Translate the rest into list notation. 

35. ((A . NIL) . ((B . NIL) . NIL)) 

36. (A . (B . (C . NIL))) 

37. (NIL . NIL) 

38. ((A . (B . NIL)) . ((C . NIL) . NIL)) 

39. ((X . NIL) . ((NIL . Y) . NIL)) 

Translate the following s-expressions into dot notation. 

40. A 

41. ((PLOOP) FLOP TOP) 

42. ((X GLITCH) (Y CROCK))); 

43. (((X))) ; 

44. (SNAP (CRACKLE (POP))) 

Write the s-expression which is the value of each expression. Use 
list notation for your answer whenever possible. Some of them may be 
undefined. 
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45. car [(A B C)] 

46. cdrT(A BC)] 

47. car[(AB DC)] 

48. car [(A) J 

49. cdr[(A)] 

50. car [A] 

51. cdr[NIL] 

52. cons [A; (B)] 

53 . cons [A; (B C) ] 

54. cons [A; B] 

55. cons[A;NIL] 

56. cons [NIL; A] 

57 . cons [ (A) ; (B C) ] 

58. cons [(A B);(C D)J 

59. cons [(A B);C] 

60. cons[(A . B);((C . D) (E . P))] 

61. cons [(A B);NIL] 

62. car [(((A)))] 

63. cons[eq[A;A];(F T P)] 

64. atom[NIL] 

P. Multiple car-cdr Functions 

i 
\ Write multiple car-cdr LISP functions which will find the "A" in 

each of the following (denote the s-expressions by "x"): 

I 65^ (A) 
1 6L (C A 1) 
67. (B . A) 
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68. (STAY) 

69. (1 2 3 A) 

70. ((A . B) (C . D)) 

71. ((B . A) (C . D)) 

72. (((C)) ((A))) 

73. ((X . Y) (A . B)) 

74. ((((A)))) 

6. The Functions list and null . 

We will use the predicate null to test for the atomic symbol NIL. 
null [NIL] ■ T, null[x] « F , if x is any other s-expression than NIL. 
The expression "( )" is identical to NIL, that is, ( ) - NIL, so null[( )] - T 
and atom[( )] - T, since null [NIL] - T and atom [NIL] ■ T. Notice this 
consistency: cdr[(A)] - ( ) - NIL. 

The function list is used to create lists. It is a shorthand nota- 
tion as the following identities illustrate: 

list[ ] - ( ) - NIL 

list[x] ■ (x) - cons[x;NIL] 

listfc^Xg] - (Xj^ x^ - cons [x. ; cons [x.; NIL]] 



listlxj^;...;,^] - ( x i *2. ••• x n ^ " coasfrjJCOMl^J^consIx^NIL]...]] 
Examples * « 

list [A] - (A) 
list [A; BJ - (A B) 
li»t[X;(Y Z)] - (X (Y Z)) 
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Exercises 



75. null [A] 

76. null [NIL] 

77. null [0 ] 

78. null [car [(A)]] 

79. null [cdr [(A)]] 

80. null[cdr[((A B C))]] 

81. list[A;B;C] 

82. list[(A);(B);(C)] 
83. ( null [cdr [list [A]]] 
84 . null [cdr [cons [A; B] ] ] 



l!| Write expressions involving only cons , list , and atoms which will 



generate the following expressions. Example: (A B) - list[A;B] 



85. (A . B) 

86. (X Y) 

87. ((A B) (C D)) 

88. ((A . B) (C . D)) 

89. (((A))) 

90. ((B . C)) 

91. (()()) 

92. (A . (B C D)) 
Evaluate ; 

93. eq [car [(A)]; car [(B)]] 

94. eq [cdr [(A)]; cdr [(B)]] 

95. atom[cdr[(X Y)]] 

96 . atom [cdr [cdr [ (X Y) ] ] ] 

97. car[(A B C)] 



r 

i 
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98. cadr[(A B C)] 

99. caddr[(A B C)] 

100. cddr[(A B C)J 

101. cadr[A (B C) D)] 

102. caadr[(A (B C) D)] 

103. cadadr[(A (B C) D)] 

104. cddadr[(A (B C) D)] 

105. cddrt(A)] 

106 . eq [car [ (A) ] ; cadr [ (B A) ] ] 

107. cadr [list [A; B;C]] 

108. caddr[list[A;B;C]l 

109. atom[cadr[(A (B) C)]] 

110. atom[cadr[(A BC)]] 

111. cdr[cons[A;(B . C)]] 

112. atom[car[cons[Aj(B C)]]] 

113. atom[cdr[cons[A;NILU] 

114. null [list [A] J 

115. eq[(A . B) ;cons[A;B]] 

116. car[cons[car[(A)];NILj] 

117. eq[A;car[(A)JJ 

118. eq[(A B); list [A; B] J 



H. pie LISP Meta- Language . Read Section 1.4. (Skip Section 1.5.) 

» 

119. [T-*A;T-»B] 
j liokl [F-*A;T-*B] 
, 1Z1. [P-*.A;P-*B] 
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122. [eq[A;A)-*car[(A)];T-*:dr[(B))] 

123. [null[X]-*Y;null[( )]—-NlL;T -*atom[A]] 

124. [atom[x] -*atom[x);T-^eq[X;X]] 

In exercises 125-133 the variables f, m, n, t, x, y, and z are bound 
by the following table. . All other variables are unbound and therefore 
undefined . 

f-F t-T z - AB 

m - AB x - ((AB)) 

n - (AB . C) y - ((AB . C)) 

125. [eq[m;z] -».n;T— *x] 

126. [f ->.A;T-*B;T— *c] 

127. [eq[AB;m]~ *A;T— .B] 

128. [atom[m]— *A;T— *B] 

129. [atom[n] -*A;T-»B] 

130. [eq[m;caar[x]] —*y;T — *w] 

131. [[T->F;F-^T]~>F;T->[F-^T;T—^T]] 

132. [[eq[cdr[n]jcdar[y]]^F;T^T]^y;T--*w] 

133. [[eq[m;z]-^eq[f;t]_^null[cdr[x]]]— B;T-*C] 
I. \ Notation and X Conversion. 



Th e \ notation is necessary for specifying the order in which a 
function expects its arguments. Understand the difference between a function 
and a form. 

Examples 

( 
form: cons[x;y] < 

functions: \[\ x;y] ;cons[x;y]] 



I 
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*' The process of pairing the elements of a list of variables follow- 
ing a \ with their respective arguments to form a table of bindings such 
as in the recent exercise, and then evaluating the form inside the \ 
expression is called \-conversion. 



Example : \-conversion 



form: 



table 



M[x; 


y]cons[y;x]][A;B] - 




x - A 




cons[y;x] ■ 




Y - B 




cons[B;A] ■ 








(B 


•A) 






Evaluate: 






• 


134. 


Ml 


:*];*] [A] 






135. 


Ml 


[y];y][(A)l 






136. 


Ml 


;y];A][B] 




137. 


Ml 


[x];car[x] H(A)] 




138. 


Ml 


[x];car[(A)]][(B)] 




139. 


Ml 


[u;v];u][A;B] 


. 


140. 


Ml 


[u;v];u][B;A] 




141. 


M 


[u;v];v][A;B] 




142. 


Ml 


[x;y];cons[car[y];cdr[x]]][(A . 


B);(C . D)] 


143. 


M 


[x];\[[y];car[y]][x] ][(A)] 


f 


144. 


Ml 


[x;y] ; [atom[x]->y;T-4 A] ] [R;S] 




145. 


cons[A;[null[Q]-»B;T^C]] 




146. 


cons[A;M[x];car[x]][(B)n 




147. 


cons [A } [X[ [x;y] ;y] [T;F]-» "b;T* C] ] 
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J. Function Definition, 



Unse the following table to evaluate the forms below: 





u » (A B) 


• 


v = X 


• 


w - (T U V) 




pred - M[x;y];eq[x;car[y]]] 


■j 


test - M[x];[atom[x]-*T;atom[car[x]]-»F; 


T 


T-»F]] 


ExapujHe 




pre^[A;<A B)] - 




M [x;y] ;eq[x;car[y] ] ] [A; (A B) ]- 







x - A 






y - (A b) 




eq[x;car[y]J » 






eq[A;car[(A B)]] - 




t 


eq[A;A] - 




• 


T 






148. test [A] 


\ 





149. test[(u B C)] 

150. test[(v . u)] 

151. pred[X;(A B)] 

152. pred[P;(P T F)] 

153. pred[test[v];w] 
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K. Recursive Functions 

Use the definition of JJ[ given below to evaluate the following forms. 
Write the argument for Jj[ at each recursive step in the evaluations. 

JJ -M[x];[atom[x*]-?*;T-*>Jj[cdr[x]]l] 

154. X 

155. (A . B) 

156. ((X . Y) . (X . 2)) 

157. (ABC) 

158. (A (C . E)) 

Use this definition to evaluate the folowing forms. 

match -\[[kk;m]; [null[kk]-»NO;null[m]-?»NO;eq[car[kk];car[m]]->car[kk]; 
T-*match[cdr[kk] ;cdr[m] ] ] 

159. match [(X);(X)] 

160. match [(A B E) ; ( J E).] 

161. match[(X A Y);(S V E)] 

■'•' v Use the following definition to evaluate these forms. 

twist =\[[s] ;[atom[s]-^s;T-*cons[twi8t[cdr[8]];twi8t[car[s]]]]] 

162. twist [A], 

163. twist[(A . B)] 

164. twist [((A . B) . C)] 

165. twist[( ABC)] ', 

166. twist[((A . B))] 



L. List vs. B-expression recursions 

Recursive LISP functions are generally terminated in wither of two 
ways. In operations which deal with data which are lists (that is can be 



iT 
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expressed in list-notation) the termination is by null when a datum is 
exhausted. In functions dealing with dot notation data (that is with 
data in which atoms other than NIL may occur in the cdr part) the corres- 
ponding terminating condition is atom . 

Examples 

null -termination is used in a recursion down a list in the function 

among which decides whether or not an atom is among those on a list: 

among ■ \[ [a;kk] ;null[kk] F;eq[a;car[kk] ] T;T among[a;cdr[kk]] ]] 
atom - termination is used in the recursion in inside which decides 

whether or not an atom appears anywhere in an s-expression: 

inside ^.[[a;s] ; [atom[s] eq[a;s]; 

« 

inside[a;car[s]] T; 
T inside[a;cdr[s]]]] 

Exercises (167-175 are list type; 176-178 are s-expression type.) 
Write LISP functions for the following purposes: 

167. To determine whether an atom is a member of a list 
e.g. member [B; (A BC)] =T 

member [X; (A BC)] =P 
member [A; (B (A B) C) ] * F 

168. to produce a table (list of dotted pairs) given two lists, one of 
the references, the other of values. 

e.g. pair[ONE TWO THREE) ; (1 2 3)]=((0NE . 1) (TWO . 2) (THREE . 3)) 

pair [(PLANE SUB) ; (B47 THRESHER) ]«( (PLANE . B47) (SUB . THRESHER)) 

169. to append one list onto another. 

e.g. append[ (A B C) ; (D E F)] - (A B C D E F) 

append[((A B) C(D(E))) ;((A))] - ((A B) C(D(E)) (A)) 
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1 



170. to delete an element from a list, 
e.g. delete [Y;(X Y Z)] »(X Z) 

delete [X;((U V) X Y) ] «((U V) Y) 

171. to reverse a list, (hint: use append .) 

e.g. reverse [(A B C)] - (C B A) 

reverse[ (A (B C) D) ] -(D (B C) A) 

172. to rpoduce a list of all the atoms which are in either of two lists. 

e.g. union[(U V W) ;(W X Y) ] »(U V W X Y) 
union[(A B C);(BC D)] ■ (ABC D) 
union[(A B C) ;(A B C)] - (A B C) 

173. to produce a list of all the atoms in common to two lists, 
e.g. intersection [(A B C) ; (B C D) ] »(B C) 

intersection [(A B C) ; (A B C) ] -(A B C) 
intersection! (A B C) ; (D E F) ] - NIL 

174. to find the last element on a list. 

\ V e.g. last[(A BG)] - C 

last[«A B)(C))[ - (C) 

175. to reverse all levels of a list. 

e.g. superreverse[(A B(C D))] »((D C) B A) 

superreverse[((U V)(X Z) Y))]-((Y (Z X)) (V U)) 

176. to determine whether a given atomic symbol is some part of an 
s-expression. 

e.g. part [A; A] ■ T ( -' 

part [A; (X . (Y { A)),] - T 
part[A;(U VXW .X) Z)] -F 



I 
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177. to substitute one atomic symbol for another in an s-expression. 

e.g. subst[X;Y;(U VWXYZ)]»(UVWXXZ) 

subst[X;Y;((U Y) X((Y) Z))] «((U X) X ((X) Z)) 

178. to produce a list of all the atoms in s-expression. 

e.g. listofatoms[(A (B C) D)] ■ (A B C D) 

listofatoms[((B (C D)) E) ] - (B C D E) 
listofatoms[(A . (B . C))] - (A B C) 

M. A Differentiation Program . 

A simple differentiation program can easily be written in LISP and it 
will serve two purposes for us: it will be an example of an application of 
LISP; and it illustrates the usefulness of prefix notation in representing 
algebraic expressions. 

The differentiation rules which we will be implementing are: 

(rule 1) 

(rule 2) 
(rule 3) 

(rule 4) 

The LISP function diff [e;x] is to differentiate the algebraic expressions 
e with respect to the variable x. Clearly some way of representing algebraic 
expressions as s-expressions must be invented, since the arguments of diff 
must be s-expressions. ; 

There are many possible ways to represent an algebraic expression as 
an s-expression, e.g. , y +zw might become (Y PLUS Z TIMES W) or (Y SUM(ZPRDCT W)) 
or (PLUS Y (TIMES Z W )). 



dx 


1 






dy 
dx 





(y #x) 




d(u + 
dx 


v) 


du 


dv 
dx~ 


d(u . 


v) 


du 


dv 


dx 




* v dx" + 


tt dx" 
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We shall choose this last representation (called Polish prefix notation) 
for reasons of convenience, and will specify it as follows: 

1. algebraic constants and variables shall become atoms, e.g., 
y-j^Y, p-»RHO, 37— ^THIRTYSEVEN 

(The programmed versions of LISP all handle numbers more conveniently than 
this ) 

2. the operators + and . shall be limited to two operands by asso- 
ciative grouping, e.g. 

x + y + t~*x + (y + z) 

U . V . W-Ml . (V . W) 

3. We will use the notation convention that an expression followed by 
* means the translation of that expression. 

x + y shall become (PLUS x* y*) and x . y shall become (TIMES x* y*) . 

The following examples should clarify these rules. 

Algebraic Expression S-expression Representation 

a + b (PLUS A B) 

a . b (TIMES A B) 

a . (b + c) (TIMES A (PLUS B C)) 

a + 6 yx (PLUS ALPHA (PLUS BETA (TIMES GAMMA X))) 

2trr (TIMES TWO (TIMES PI R)) 

The program for diff using this representation for algebraic expressions is 
straightforward: 
diff - \[[e;x]: 

[atom[e]->[eq[e;x]->ONE; (' (rule 1) 

T — => ZERO]; < (rule 2) 

eq[car[e] ;PLUS]-^list[PLUS;dif f [cadr[e] ;x] ;dif f [caddr[e] ;x] ] (rule 3) 
eq[car[e];TIMES]^li8t[PLUS;li8t[TIMES;caddr[e];diff[cadr[e];x]] 

llst[TIKKS;cadr[e];diff[caddr[e];x]]]]] (rule 4) 



!■■ i ■! i »■' « *•*» i i i imm aim 
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Exercies. Evaluate these forms: 

179. diff[(PLUS A X) ;X] 

180. diff [(TIMES A X) ;X] 

181. diff [(TIMES THREE X) ;Y] 

182. diff [(PLUS Y Y);Y] 

183. diff [(TIMES TWO (TIMES Z Z));Z] 

Adding the following translation rules for converting algebraic expressions 
to s-expressions allows us to add new rules to increase the power of diff. 

algebra s- express ion 

-x # (MINUS x*) 

5£ (RECIP x*) 

sin[x] (SIN x*) 

cos[x] (COS x*) 

Additional clauses can be added to the main conditional expression of 
diff which implement these additional rules. 

Example: 

^d^ * "^3x^ iS im P lemented b y adding this clause to diff ; 
eq[car[e] ;MINUS]-^list [MINUS ;dif f [cadr[e] ;x] ] 

Exercise . 

Implement the following differentiation rules by writing a clause for 

diff to handle each: 

I) • du ( 
u • ox 



184. d <^> ^ 



i dx 



185. d(sin u) . (cog u) du 

dx dx 

186. d(cos u) s - (§lll u) , ( du } 

dx W 
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N. | | s-expression Representation of LISP Expressions. 
Exetfcises. Translate these m-expressions into s-expressions. 

■ i 

187. a 

188. x 

189. A 

190. T 

191. NIL 

192. ((A B)) 

193. QUOTE v 

194. (QUOTE A) 

195. car 

196. car[x] 

197. car[A] 

198. atom[x] 

199. ff[x] 

200. ff[car[x]] 

201. [atom[x]-»x;T— >ff[car[x]]] 

202. \[[x];x] 

203. \[[x];car[x]] 

204. M[x];[atom[x]-»x;T-*ff[car[x]]] 

205. label [ff;\[[x];[atomtxl-^x:T-?ff[car[x]]] 

206. M[x];\[[yJ;car[y]Hx]] 

0. Table Building and Searching . 

Evaluate the following forms. Using the definitions of pairlis and 
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assoc given In Section 1.6, changing the occurrence of equal in assoc to eq. 

207. pairlis[NIL;NIL;((Y . B))] 

208. pairlis[(X);(A);NIL] 

209. pairlis[(X Y);(A B),((Z . C))] 

210. assoc[y;((X .A) (Y . B) (Z . C))] 

211. assoc[X;pairlis[(X);(A);((Z . C))]] 

P. A LISP Interpreter 

Using the Section 1.6 definitions of apply , eval , pairlis , assoc, evcon and 

evlis and with a - ((X. M) (Y . T) (Z . (M N)) (T . T)) evaluate the following: 

212. assoc[Z;a] 

213. assoc[Y;a] 

214. eval [(QUOTE A); a] 

215. eval[T;a] 

216. eval [X; a] 

217. evlis [(X); a] 

218. evlis [(X Y Z);a] 

219. evcon[((T X));a] ' * 

220. eval[(C0ND (T X));a] 

221. apply [CAR; ((A)); a] 

222. apply[C0NS;(A B);a] f " 

i 

223. apply [CONS; ((A) (B));( )]' 

224. apply [CAR; (A) ;( )} 

225. eval [ (ATOM X) ; a] 

226. evcon[(((AT0M X) X) (T (FF (CAR X)» ) ;a] 



■ Itfr i i -' i 1 -n w n i ii m g a a i ri ' iiii 
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227. eval[(C0ND ((ATOM X) X) (T (FF (CAR X))) );a] 

228. apply[ (LAMBDA (X) (CAR X)); ((A)); ( )1 

229. apply[ (LABEL CARP (LAMBDA (X) (CAR X))) ; ((A)) ; ( )] 

230. apply[FIRST; ((A)); ((FIRST . CAR))] 

231. apply [(LAMBDA (X) <COND ((ATOM X)X) (T (FF (CAR X))) ));(A);( )] 

232. apply [(LABEL FF (LAMBDA (X) (COND ((ATOM X) X) (T (FF (CAR X))) )));(A);( )] 

233. apply [(LABEL FF (LAMBDA (X) (COND ((ATOM X) X) (T (FF (CAR X))) ))); 

(((Q . R) (S . T)));( )] 

Q* Fifteen Minute Problems 

Write the LISP functions described below. You need not redefine any 
functions you use which appeared in an earlier exercise. Assume that 
integers are atomic symbols. 

234. infixfpolish; table] is to convert an expression from Polish to infix 
notation, using a table which gives the correspondence between prefix and 
infix operators. 

e.g. infix[(TIMES 3 A B);((PLUS . +) (TIMES . X))] -(3 X A X B) 

infix[(DIVIDE (TIMES kqP) (PLUS 3 (TIMES a 2) A B));((PLUS . +) 

(TIMES . X) (DIVIDE ./))] - ((nXaX P)/(3 + (a X 2) + A + B)) 

235. polish [infix; table] is to do the corresponding reverse transformation. 

236. permit [ string] is to produce a list of all the permutations of a 
given string. Assume all the elements of the original string are unique. 

e.g. permut[(A B C) ] « ((A B C) (A C B) (B A C) (B C A) (C A B) (C B A)) 

237. permutations [string] is to produce a list of all the permutations 
of a given string. [it is difficult to do this in an efficient way.] 

e.g. permutations [(A A B)] - ((A A B) (ABA) (B A A)) 

238. Invent the necessary s-expression representation and write clauses 
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for diff to implement leibnitz 1 rule: 



d ( ' / df db da 

^ — dx + f(b,a) _ - £(a,a) _ 

da \ \ da da da 




239. Given the predicate greater[x;y] which orders atomic symbols, i.e., 
if greater[x;y] - T then greater[y;x] ■ F where x and y are any two dif- 
ferent atoms, write the predicate larger [x;y] which orders s- express ions, 
i.e., if larger[x;y] « T, then larger[y;x] - F. 

240. One s-expression is a factor of another s-expression if the second 
includes the first as a sub-expression. An s-expression equivalent to 

a greatest common divisor is a common sub-expression which is not a. factor 
of any other common sub-expression. (It is not necessarily unique.) 
Write functions to find a greatest common divisor of two s -expressions ♦ . 

e.g. gcd[(A . ((B . C) . D));(E . (B . C))] « (B . C) 

Write functions to find all the g.c.d. 's of two s-expressions. 

e.g. allgcds[(X . (Y . (A . B)));(B . (X . (A . B)))] - ((A . B) X) 
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ANSWERS 


1. 


ye 8 




27. 


B 


2. 


no 




28. 


true 


3. 


ye s 




29. 


true 


4. 


no 




. 30. 


false 


5. 


yes 




31. 


true 


6. 


A 




32. 


false 


7. 


B 




33. 


true 


8. 


(F00 . CROCK) 


34. 


true 


9. 


GLITCH 




35. 


((A) (B)) 


10. 


undefined 




36. 


(A B C) 


11. 


(POOT . TOOP) 


37. 


(NIL) 


12. 


(X . (Y . 


z» 


38. 


((A B) (O) 


13. 


T 




39. 


not list 


14. 


F 




40. 


A 


15. 


! undefined 




41. 


((PLOOP . NIL) . (FLOP . (TOP . NIL))) 


16. 


T 




42. 


((X . (GLITCH . NIL)) . ((Y . (CROCK . NIL)) NIL)) 


18.' " 


'F 
T 




43. 
44. 


(((X . NIL) . NIL) . NIL) 

(SNAP . ((CRACKLE . ((POP . NIL) . NIL)) . NIL)) 


A 




45. 


A . 


20. 


(A . B) 




46. 


(BC) 


21. 


B 




47. 


AB 

f 


22. 


F 




48. 


A 


23. 


T 




49. 


NIL 


24. 


T 




50. 


undefined 


25. 


F 




51. 


undefined 


26. 


T 




52. 


(A B) 
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53. 


(A B C) 




81. 


(A B C) 


54. 


(A . B) 




82. 


((A) (B) <C» 


55. 


(A) 




83. 


T 


56. 


(NIL . A) 




84. 


F i 


57. 


((A) B C) ( V 


• 


85. 


con8[A;B] 


58. 


((A B) C D) 




86. 


list[X;Y] 


59. 


((A B) . C) 




87. 


list [list [A;B] ; list [C;D] ] 


60. 


((A . B) (C . D) (E 


..F)) 


88. 


list [cons [A; B] ;cons [C;D] ] 


61. 


((A B)) 




89. 


list[llst[list[AjJ] 


62. 


((A)) 




90. 


list [cons [B;C]] 


63. 


(TFT P) 




91. 


list [list [ ];list[ ]] 


644 


T 




92. 


list[A;B;C;D] 


65. 


car[x] 




93. 


F 


66. 


cadr [x] 




94. 


T 


67. 


cdr[x] 




95. 


F 


68. 


caddr [x] 




96. 


T 


69. 


cadddr [x] 


• 


97. 


A 


70. 


caar[x] 




98. 


B 


71. 


cdar[x] 




99. 


C 


72. 


caaadr [x] 




100. 


(C) 


73. 


caadr [x] 




101. 


(B C) 


74. 


caaaar [x] 




102. 


B 


75. 


F 


> 


103. 


C 


76. 


T 


» 


104. 


NIL 


77. 


T 




105. 


undefined 


78. 


F 




106. 


T 


79. 


T 




107. 


B 


80. 


T 




108. 


C 
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109. F 

110. T 

111. (B . C) 

112. T 

113. T 

114. F 

115. undefined 

116. A 

117. T 

118. undefined 

119. A 

120. B 

121. undefined 

122. A 

123 . NIL 

124. T 

125. (AB . C) 

126. B 

127. A 

128. A 

129. B 

130. ((AB . C)) 

131. T ' 

132 . undefined 

133. C 

134. A 

135. (A) 



136. 


A 


137. 


A 


138. 


A 


139. 


A 


140. 


B 


141. 


B 


142. 


(C . B) 


143. 


A 


144. 


S 


145. 


(A . C) 


146. 


(A . B) 


147. 


(A . C) 


148. 


T 


149. 


F 


150. 


F 


151. 


F 


152. 


T 


153. 


T 


154. 


JJ[A] -A 


155. 


jj[(A ..B)] - jj[B] -B 


156. 


jj[((X . Y) . (X . Z))] -jj[(X . Z)J - jj[ZJ - 2 


157. 


jj[(A B C)] - jj[(B C)] nIJ[(C)] -MINIL] - Nil 


158. 


jj[(A (C . E))]- jj[((C . E))] - jJtNIL] - NIL 


159. 


X 


160. 


E 


161. 


NO 


162. 


A 



?■ 
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163. T (B • A) 

16^. (C • (B . A)) 

165. (((NIL . C) .B) . A) 

166. (NIL . (B . A)) 

167. member « \[ [x;m] ; [nullfm] -3* F;eq[x;car[m] ]-^T;T — y member[x;cdr[m]]]] 

168. pair » \[[m;n] ; [nullfm]-^ NIL ,T—>cons [cons [car [m] ;car[n]] ;patr[cdr[m] ; 

cdr[n]]]]] 

169. append « \[[m;n] ; [null[m]^n;T->cons[car[m] ; append [cdr[m] ;n]]]] 

170. delete « \[[x;m] ; [nullfm]— ?NIL;eq[x;car[m]]-$>cdr[m] ; 

T-^cons [car[m] ;delete[x;cdr[m] ] ] ] ] 

171. reverse * [[m] ;[null[m]—^NIL;T->append[reverse[cdr[m]] ;list[car[m]] ]]] 

172. union - \[ [m;n] ; [null [m]-^n;member [car [m] ;n]— * union[cdr[m] ;n] ; 

T->cons[car[m] ;union[cdr[m] ;n] ] ] ] 

173. intersection • \[[m;n] ; [nullfm]— >NIL;member [car [m] ;n] —5* 

cons[car[m] ; intersection[cdr[m] ;n] ] ;T-5*intersection[cdr[m] ; 
n]]] 

174. last - \[[m];[null[cdr[m]]— >car[m] ;T-^last[cdr[m] ]]] 

175. superreverse « \[[m] ; [null[m]-^NIL;T-^append[superreverse[cdr[m]] ; 

list[superreverse[car[m] ] ] ] ] ] 

176. part -\[[x;s] ; [atom[s]->eq[x;s] ;part[x;car[s]]-^T;T^part[x;cdr[s]]]] 

177. subst «\[[x;y;s];[atom[s]->[eq[y;8]->x;T-^s];T->cons[subst[x;y; 

car[a]];subst[x;y;cdr[s]] 

178. listofatoms «\[ [s] ; [atom[s]-^list[s] ; T->union[listof atoms [car [s] ] ; 

listof atoms [cdr[8] ] ] ] ] 

179. (PLUS ZERO ONE) 

180. XPLUS (TIMES X ZERO) (TIMES A ONE)) 

181. (PLUS (TIMES X ZERO) (TIMES THREE ZERO)) 

182. (PLUS ONE ONE) v 

9 
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'183. J (PLUS (TIMES (TIMES Z Z) ZERO) (TIMES TWO (PLUS (TIMES ? ONE) 



| ( T }W S z 0NE >))) 



184. eq[car[e] ;RECIP]-^list [TIMES; list [RECIP;list[TIMES;cadr[e];cadr[e])]; 

diff[cadr[e];x]] 

185. eq[car[e];SIN]-^iist[TIMES;list[COS;cadr[e]];diff[cadr[e];x]] 

186. eq[car[e];C0S]-^list[MINUS;ll8t[TIMES;li8t[SIN;cadr[e]];dif£[cadr[e];x]]] 

187. A 

188. X 

189. (QUOTE A) 

190. (QUOTE T) 

191. (QUOTE NIL) 

192. (QUOTE ((A B ))) 

193. (QUOTE QUOTE) 

194. (QUOTE (QUOTE A)) 

195. CAR 

196. (CAR X) 

197. (CAR (QUOTE A)) 

198. (ATOM X) 

199. (FF X) 

200. (FF (CAR X)) (' 

'i 

201. (COND ((ATOM X) X) (T (FF* (CAR X)))) 

202. (LAMBDA (X) X) 

203. (LAMBDA (X) (CAR X)) 

204. (LAMBDA (X) (COND ((ATOM X) X) (T (FF (CAR X))))) 

x 205. (LABEL FF (LAMBDA (X) (COND ((ATOM X) X) (T (FF (CAR X)))))) 

206. (LAMBDA (X) ((LAMBDA (T) (CAR Y)) X)) \ 
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207. 


((Y . B)) * 


208. 


((X . A)) 


209. 


((X . A) (Y . B) (Z . C)) 


210. 


(Y . B) 


211. 


(X . A) 


212. 


(Z • (M N)) 


213. 


(Y . T) ' ■ 


214. 


A 


215. 


T 


216. 


M 


217. 


(M) 


218. 


(M T (M N)) 


219. 


M 


220. 


M 


221. 


A 


222. 


(A . B) 


223. 


((A) . (B)) -((A) B) 


224. 


undefined 


225. 


T 


226. 


M 


227. 


M 


228. 


A 


229. 


A 


230. 


A 


231. 


A 


232. 


A 


233. 


Q 
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